home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS19.ADF
/
BasicGadgets
/
Listing1
< prev
next >
Wrap
Text File
|
1989-01-27
|
220b
|
14 lines
' Listing #1
' Part 1 of 3, Amiga Basic gadget subprograms
' Bryan D. Catley, September 1986
'
SUB BldGdgts (Num,T1(),T2$()) STATIC
FOR n=0 TO Num-1
FOR m=0 TO 6
READ T1(n,m)
NEXT m
READ T2$(n)
NEXT n
END SUB